Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/wg_lib/wglibdem.frm

Text File | 1995-10-23 | 10KB | 433 lines

VERSION 2.00
Begin Form MenuFrm
   BackColor       =   &H00C0C0C0&
   Caption         =   "WGLib Demo"
   ClientHeight    =   330
   ClientLeft      =   945
   ClientTop       =   2295
   ClientWidth     =   7785
   Height          =   1020
   Icon            =   WGLIBDEM.FRX:0000
   Left            =   885
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   330
   ScaleWidth      =   7785
   Top             =   1665
   Width           =   7905
   Begin CommandButton Command3
      Caption         =   "Quit"
      Height          =   255
      Left            =   6165
      TabIndex        =   14
      Top             =   3015
      Width           =   795
   End
   Begin TextBox Text2
      Height          =   375
      Left            =   2640
      TabIndex        =   8
      Text            =   "Another Std Edit Box"
      Top             =   3000
      Width           =   2055
   End
   Begin CheckBox Check5
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk E"
      Height          =   255
      Left            =   480
      TabIndex        =   5
      Top             =   2880
      Width           =   1215
   End
   Begin CheckBox Check4
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk D"
      Height          =   240
      Left            =   480
      TabIndex        =   4
      Top             =   2655
      Width           =   1215
   End
   Begin CommandButton Command2
      Caption         =   "Off"
      Height          =   375
      Left            =   6645
      TabIndex        =   13
      Top             =   2535
      Width           =   495
   End
   Begin CommandButton Command1
      Caption         =   "On"
      Height          =   375
      Left            =   5910
      TabIndex        =   12
      Top             =   2550
      Width           =   495
   End
   Begin TextBox Text1
      Height          =   375
      Left            =   3435
      TabIndex        =   0
      Text            =   "Standard VB Text Box"
      Top             =   2235
      Width           =   2055
   End
   Begin CheckBox Check3
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk C"
      Height          =   255
      Left            =   480
      TabIndex        =   3
      Top             =   2040
      Width           =   1215
   End
   Begin CheckBox Check2
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk B"
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   1785
      Width           =   1215
   End
   Begin CheckBox Check1
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk A"
      Height          =   255
      Left            =   480
      TabIndex        =   1
      Top             =   1560
      Width           =   1215
   End
   Begin PictureBox Picture1
      AutoSize        =   -1  'True
      Height          =   510
      Left            =   6120
      Picture         =   WGLIBDEM.FRX:0302
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   7
      Top             =   480
      Width           =   510
   End
   Begin PictureBox Picture2
      AutoSize        =   -1  'True
      Height          =   510
      Left            =   720
      Picture         =   WGLIBDEM.FRX:0604
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   9
      Top             =   480
      Width           =   510
   End
   Begin Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   " Subtle Embossing is   easy with WGLib!"
      Height          =   450
      Left            =   5565
      TabIndex        =   11
      Top             =   1635
      Width           =   1860
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Pseudo Frames!"
      Height          =   180
      Left            =   360
      TabIndex        =   10
      Top             =   1215
      Width           =   1425
   End
   Begin Label Label1
      BorderStyle     =   1  'Fixed Single
      Caption         =   "  All the controls on this page are     standard VB controls.                                                                       The Special Effects and labels       are by WGLib"
      Height          =   1095
      Left            =   2250
      TabIndex        =   6
      Top             =   540
      Width           =   3015
   End
   Begin Menu FILE
      Caption         =   "File I/O"
      Begin Menu FCre
         Caption         =   "Creation..."
      End
      Begin Menu FIO
         Caption         =   "Fast I/O"
      End
   End
   Begin Menu Arry
      Caption         =   "Arrays"
      Begin Menu AFnc1
         Caption         =   "Arrays (Numeric)"
      End
      Begin Menu ArryCtl
         Caption         =   "Arrays w/Controls"
      End
   End
   Begin Menu Strng
      Caption         =   "String"
      Begin Menu Isstr
         Caption         =   "Str Test"
      End
      Begin Menu miscstr
         Caption         =   "Other String"
      End
   End
   Begin Menu Sys
      Caption         =   "System"
      Begin Menu DTFns
         Caption         =   "Date and Time"
      End
      Begin Menu Eq
         Caption         =   "Equipment"
      End
      Begin Menu kbcalls
         Caption         =   "KeyBoard State"
      End
   End
   Begin Menu WAPI
      Caption         =   "WIN"
      Begin Menu winfn
         Caption         =   "WIN Environment"
      End
   End
   Begin Menu qbmisc
      Caption         =   "VB/Other"
      Begin Menu vbswap
         Caption         =   "Swaps"
      End
      Begin Menu sfx
         Caption         =   "Special Effects"
      End
      Begin Menu misc
         Caption         =   "Missing QB Goodies"
      End
   End
   Begin Menu CCtl
      Caption         =   "Controls"
      Begin Menu ccclk
         Caption         =   "Clock"
      End
      Begin Menu cckb
         Caption         =   "KBStat Control"
      End
      Begin Menu ccscr
         Caption         =   "Meters and Enh. Scroll Bars"
      End
   End
   Begin Menu ISoft
      Caption         =   "About..."
   End
End
DefInt A-Z

Dim FXOn As Integer

Sub AFnc1_Click ()

    MenuFrm.Hide
    ArryFrm1.Show 1
    Unload ArryFrm1
    MenuFrm.Show

End Sub

Sub ArryCtl_Click ()

    MenuFrm.Hide
    ArryCtlFrm.Show 1
    Unload ArryCtlFrm
    MenuFrm.Show

End Sub

Sub ccclk_Click ()

    MenuFrm.Hide
    CLkFrm.Show 1
    Unload CLkFrm
    MenuFrm.Show

End Sub

Sub cckb_Click ()

    MenuFrm.Hide
    KBcFrm.Show 1
    Unload KBcFrm
    MenuFrm.Show

End Sub

Sub ccscr_Click ()

    MenuFrm.Hide
    ScrFrm.Show 1
    Unload ScrFrm
    MenuFrm.Show

End Sub

Sub Command1_Click ()
    DoEffects
    Command2.SetFocus
End Sub

Sub Command2_Click ()
    Cls
    Command1.SetFocus
End Sub

Sub Command3_Click ()
    FXOn = 0
    MenuFrm.Height = 1020
    MenuFrm.Width = 7905
    Cls
End Sub

Sub DoEffects ()
    ConvexFrm MenuFrm, 6
    ConcaveCtl Label1, 5
    CtlLabelOvrFX MenuFrm, Label1, "FX on Labels!"

    ConcaveCtl Picture1, 4
    CtlLabelOvr MenuFrm, Picture1, "Concave"

    ConvexCtl Picture2, 4
    CtlLabelOvr MenuFrm, Picture2, "Convex"

    ConcaveCtl Text1, 3
    CtlLabel MenuFrm, Text1, "Plain Labels  "

    ConvexCtl Text2, 3
    CtlLabelOvrFX MenuFrm, Text2, "Labels w/FX"

    EmpressFrm MenuFrm, 1500, 360, 2370, 1800, 1
    EmbossFrm MenuFrm, 2565, 360, 3210, 1815, 1

    EmbossFrm MenuFrm, 1260, 195, 3345, 1950, 1

    Call EmFXCalc(Label4, T%, L%, B%, R%)
    EmbossFrm MenuFrm, T, L, B, R, 1

    EmbossFrm MenuFrm, 2465, 5800, 3365, 7215, 1

    Command2.SetFocus
End Sub

Sub DTFns_Click ()

    MenuFrm.Hide
    DTFrm.S